home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…tion Library 2 (Reseller) / Apple R&P Lib Reseller v2.0.iso / 4-Fonts & Software / Applications / PowerPoint / PowerPoint 2.01 / PowerPoint 2.01.rsrc / pscr_128 < prev    next >
Text File  |  1989-06-12  |  324b  |  12 lines
  1. 1 dict begin /s exch def
  2. picLeft picTop translate
  3. picRight picLeft sub s 2 get s 0 get sub div
  4. picBottom picTop sub s 1 get s 3 get sub div
  5. 2 copy abs exch abs exch gt
  6. {exch 1 index abs exch 0 lt{neg}if exch}
  7. {1 index abs exch 0 lt{neg}if}ifelse scale
  8. s 0 get neg s 3 get neg translate
  9. end
  10. /showpage {} def
  11. /copypage {} def
  12.